﻿<!-- #include file="mymin.asp" -->
<%
Call Head2()

%><title>发表文章</title></head><body><div class="main400">
文章上传系统<br/>
<form name="form1<%=time_r%>" method="post" action="upload.asp?sid=<%=sid%>">
标题:<br/><input name="title" value=""  maxlength="30" class="input"/><br/>
内容:<br/><textarea name="test" cols="45" rows="20"></textarea><br/>
<table>
<%
Dim rs,sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select classid,class from 74hu_list"
If key=2 And keyids<>"" Then sql="select classid,class from 74hu_list where classid in ("&keyids&")"
rs.open sql,myconn,1,1
If Not rs.eof Then
	w "<tr><td>文章类别：</td><td><select name=""id"">"
	Do While Not rs.eof
		w "<option value="""&rs("classid")&""">"&nowml(rs("class"))&"</option>"
		rs.movenext
	Loop
	w "</select></td></tr>"
Else
	w "没有文章栏目,必须先<a href=""tjwz.asp?sid="&sid&""">添加文章类别</a><br/>"
End If

%>
<tr><td>文章来源：</td><td><input name="author" value="<%=adminarticle%>" maxlength="15"/></td></tr>
<tr><td>自动换行：</td><td> <select name="autoline">
<option value="0">关闭</option>
<option value="1" selected="selected">开启</option>
</select></td></tr>
</table>
<input name="ok" type="submit" value="发表文章"/><br/></form>
<a href="../74hu/upfile.asp?sid=<%=sid%>">[上传文件]</a>
<br/>温馨提示:<br/>
1、如果要强制分页,请用||来分割.<br/>
2、文章来源不能是纯数字.<br/>
<%Call Last2%>